COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	PRECEDE
C00003 ENDMK
C⊗;
PRECEDE;
OUTFILE←"UBACH.MSB";
*
READA .5;
P2 RHY/8///8./32//8///8,16/16/// ////4/FINE;
P4 1.3;
P7 LIT/
?SCNT←0? INFILE←&U&?/
?SCNT2←0? INFILE←&U&?/
?SCNT3←0? INFILE←&U&?/
?SCNT4←0? INFILE←&U&?;
P8 LIT/
"INC←1;"/"INC2←9/8;"/"INC3←5/4;"/"INC4←4/3;"/
"INC←3/2;"/"INC2←4/3;"/"INC3←5/4;"/"INC4←5/3;"/
"INC←9/8;"/"INC2←3/2;"/"INC3←5/3;"/"INC4←3/2;"/
"INC←4/3;"/"INC2←5/4;"/"INC3←4/3;"/"INC4←5/4;"/
"INC←9/8;"/"INC2←1;";
P6 DF 200.5;
P3 NAMES/4;
END;